home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs06.d81 / micro.arc / MFDELETEDATAFILE (.txt) next >
Commodore BASIC  |  2009-10-10  |  1KB  |  42 lines
  1. 100 REM SAVE   "0:[205][198][196][197][204][197][212][197][196][193][212][193][198][201][204][197]",8
  2. 150 REM DELETES A "[205][201][195][210][207][198][201][204][197]" SEQUENTIAL DATA FILE FROM THE DISK
  3. 155 POKE 53280,14:POKE 53281,6:POKE 646,14:PRINT CHR$(14)
  4. 160 PRINT "[147][150][208]LEASE READ THE DOCUMENTATION FILE ABOUT";
  5. 170 PRINT "DELETING UNWANTED DATA FILES FROM DISK  ";
  6. 180 PRINT "BEFORE ATTEMPTING TO RUN THIS PROGRAM.  ";
  7. 190 PRINT "[194]E VERY CAREFUL OF THE FILE NAME THAT   ";
  8. 195 PRINT "YOU ENTER. [217]OU MIGHT ACCIDENTALLY WIPE  ";
  9. 196 PRINT "OUT THE WRONG FILE.                     ";
  10. 200 PRINT "[196]O YOU WISH TO DELETE A DATA FILE NOW?"
  11. 210 PRINT "[210]EPLY [217][197][211] OR [206][207][159]"
  12. 240 A$=""
  13. 250 INPUT A$
  14. 260 IF A$="[217][197][211]" THEN 500
  15. 270 IF A$="[206][207]" THEN 990
  16. 290 GOTO 250
  17. 500 PRINT "[197]NTER THE FILE NAME[159]"
  18. 510 N$=""
  19. 520 INPUT N$
  20. 530 PRINT "[158][217]OU WILL BE DELETING:[150]";N$
  21. 540 PRINT "[196]O YOU WISH TO DELETE THIS FILE?"
  22. 545 PRINT "[210]EPLY [217][197][211] OR [206][207][159]"
  23. 550 A$=""
  24. 560 INPUT A$
  25. 570 IF A$="[217][197][211]" THEN 600
  26. 580 IF A$="[206][207]" THEN 990
  27. 590 GOTO 560
  28. 600 REM DELETE DISK FILE NAME
  29. 610 ND$=CHR$(4)+N$
  30. 630 OPEN 15,8,15
  31. 640 PRINT#15,"S0:"+ND$
  32. 641 GOSUB 1000
  33. 645 CLOSE 15
  34. 990 POKE 646,14
  35. 999 END
  36. 1000 REM DISK ERROR MESSAGES
  37. 1020 INPUT#15,ER$,EN$
  38. 1030 IF VAL(ER$)>0 THEN 1050
  39. 1040 GOTO 1099
  40. 1050 PRINT "[156][197]RROR # "+ER$+" - - - "+EN$
  41. 1099 RETURN
  42.